10 REM NEW RERUN C64 AUTOMENU
20 REM LOU WALLACE
40 POKE53280,0:POKE53281,0:PRINTCHR$(142)
50 DR=PEEK(186):V=54273
60 CH$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
70 DR$=RIGHT$(STR$(DR),LEN(STR$(DR))-1)
80 DIM N$(255),D$(255):CX=54272:PRINT "[147]"
90 READ F
100 FOR I=1 TO F:READ N$(I),D$(I)
110 IF LEN(N$(I))>13 THEN N$(I)=LEFT$(N$(I),13)+"*"
120 NEXT
130 GOSUB 400
140 REM - PRINT FIRST COLUMN OF NAMES -
150 D$=""
160 FOR I=1 TO F/2
170 PRINT D$;
180 PRINT""MID$(CH$,I,1)" "N$(I)
190 GOSUB 590:D$=D$+""
200 NEXT
210 REM -- THEN 2ND COLUMN OF NAMES ---
220 D$=""
230 FOR I=(F/2+1) TO F
240 PRINT D$;
250 PRINTSPC(19)""MID$(CH$,I,1)" "N$(I)
260 GOSUB 590:D$=D$+""
270 NEXT
280 GETM$:IFM$=""THEN 280
290 IFM$<"A"ORM$>CHR$(64+F)THEN280
300 P=ASC(M$)-64:PRINT"[147]"
310 IF D$(P)<>"RUN" THEN 340
320 IFLEN(N$(P))>12THENN$(P)=LEFT$(N$(P),12)+"*"
330 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)","DR$"[145][145][145]":GOTO360
340 IFLEN(N$(P))>15THENN$(P)=LEFT$(N$(P),16)+"*"
350 PRINT"LOAD"CHR$(34)N$(P)CHR$(34)","DR$",1[145][145][145]"
360 A$=D$(P)
370 A$=A$+CHR$(13)
380 POKE631,13:FORB=1TOLEN(A$):POKE631+B,ASC(MID$(A$,B,1)):NEXT:POKE198,10
390 NEW
400 POKE 53280,0:POKE 53281,0
410 OV=PEEK(53265)
420 POKE 53265,PEEK(53265)AND 247
430 POKE 53265,(PEEK(53265)AND248)+7
440 PR$="[209][165]                                    [167][209]"
450 TP$="[209][165][213][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][201][167][209]"
460 MD$="[209][165][194]                                  [194][167][209]"
470 BT$="[209][165][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][167][209]"
480 HD$="1988 NOVEMBER/DECEMBER RERUN"
490 PRINT"[147]";
500 PRINT TP$;:GOSUB 590
510 FOR I=1 TO 2:PRINT MD$;:GOSUB 590:NEXT
520 PRINT"[145]";HD$;:GOSUB 590
530 PRINT:PRINT"[145]";
540 FOR I=1 TO 1:PRINT MD$;:GOSUB 590:NEXT
550 PRINT BT$;:GOSUB 590
560 FOR I=1 TO 19:PRINT PR$;:GOSUB 590:NEXT
570 POKE 53265,27
580 RETURN
590 REM SOUND ROUTINE HERE
600 POKE V+23,15:POKE V+4,9:POKE V+5,0:POKE V,1:POKE V+3,32:POKE V+3,33
610 RETURN
1000 REM FILE LIST
1010 REM FIRST ENTRY IS THE NUMBER OF PROGRAMS ON THIS DISK
1020 REM FOLLOWED BY EACH FILENAME
1030 REM SECOND DATA ITEM IS RUN OR SYSXXXXX
1040 REM RUN IF FILE IS BASIC AND SYS XXXXX IF ML
1050 DATA 15
1060 DATA TRIVIA,RUN
1080 DATA PANELS,RUN
1090 DATA PANELS.HEX,RUN
1100 DATA MEASURE MATE 64,RUN
1110 DATA CONCENTRATION ST,RUN
1120 DATA CONC.LIST2,RUN
1130 DATA MASS FILE DELETE,RUN
1140 DATA FINANCE 64,RUN
1150 DATA BOOT CAVERNS,RUN
1160 DATA +CAVERNS ML ,SYS16384
1170 DATA SCORE GENERATOR,RUN
1180 DATA CAVERNS HEX LOAD,RUN
1190 DATA MATH MATCH,RUN
1200 DATA ICON EDITER,RUN
1230 DATA "",RUN